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CCCCCCCCCCCC §=DDDDDDDDDDDD UUU UUU 

CCCCCCCCCCCC §=DDDDDDDDDDDD UUU UUU 
ccc DDD ODD UUU UUU 
ccc DDD DOD UUU UUU 
ccc DOD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DOD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DOD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DOD DDD UUU UUU 
ccc DDD uuu 
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| **FILE**1D**GENCODES 
| 
| 
| 
| 
| 
| GGGGGGGG EEEEEEEEEE NN NN cccccccc 000000 
GGGGGGGG EEEEEEEEEE NN NN ccccccce 000000 
GG EE NN NN CC 00 00 
GG EE NN N CC 00 00 
GG EE NNNN NN CC 00 00 
GG EE NNNN NN CC 00 00 
GG EEEEEEEE NN NN NN CC 00 00 
Go EEEEEEEE NN NN NN CC 00 00 
GG GGGGGG EE N NNNN CC 00 00 
GG GGGGGG EE NN NNNN CC 00 00 
GG GG EE NN NN CC 00 00 
GG GG EE NN NN CC 00 
GGGGGG EEEEEEEEEE NN NN cccccccc 000000 
GGGGGG EEEEEEEEEE NN NN cccccccc 000000 
LL —11114141 SSSSSSSS 
LL 111111 SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLELLLLLLLL III] SSSSSSSS 
LLLLLLLLLL 111111 SSSSSSSS 
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| GENCODES 15-Sep-1984 23:40:09 VAX-11 Bliss-32 V4.0 
— 006 12-8 08=138e $7: 9:93 DISKSVMSMASTER:CCDu. 
13 1 0001 8 MODULE gencode4 (IDENT='V04-000' 
ls é 900¢ ADDRESSING_MODE (EXTERNAL=GENERAL) 
3 i goð = BEGIN 
: 2 8082 ; IELLG 
Hd 
3 7 0099 1 !® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
2 8 ate 1 is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
10 8 8 ALL RIGHTS RESERVED. * 
Ps Hid oa 
. a 00117 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
s \¢ pore 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
2 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 14 0014 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 15 0015 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
i 84 * TRANSFERRED. * 
3 '@ * 
; 18 0018 1 '* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
H 19 0019 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ® 
: $9 83 te CORPORATION. * 
: '® % 
: 22 0022 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
⸗ 23 0025 1 != SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
>; 2 0024 1 !* * 
J @& 0025 1 !* * 
M4 26 0026 1 IIXLXLLEL 
ae 0027 1 
; 28 0028 1 !+4+ c ee P 
3 $3 34 } Facility: Command Definition Utility, Table Generator Module 4 
c. i 0031 1 ! Abstract: This module is one of a few modules that is responsible 
ro ae 0032 1! for generat ine the blocks that make up a CLI table. 
; & 0033 1! The blocks are generated ay srevereta the intermediate 
3 34 0034 1! representation of the CLD file created by the parsing 
.- 2 0035 1! modules. 
> HM 0036 1! . 
we 0037 1°! Environment: Standard CDU environment. 
; 3 0038 1! 
ee 0039 1 ! Author: Paul C. Anagnostopoulos 
3 40 0040 1 ! Creation: 28 February 2983 
; (41 0041 1! dle j 
; 42 0042 1 ! Modifications: 
J 6 00435 1! . 
; 4 0044 1! v04-001 BLS0338 Benn Schreiber _ 9-AUG-1984 
: 65 0045 1! Count blocks created by generate_path in total table size 
: 6446 0046 1! 
>. OF 0047 1 !-- 
,; 6 0048 1 
: 282 0049 1 : . 
ae 0050 1 Library bypetioracy: (to's 
, 2 0051 1 require ‘clitabdef'; 
., 0376 1 require ‘cdureq'; 
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: TABLE OF ¢ 0 NTENTS 


forward routine 
cdu$generate_path: novalue, 
match_first_entit 
match_remaining_ entities, 
report_path_error: novalue; 


: EXTERNAL R L FERENCES 


external routine 
c oy fete child, 
cdu$remember _reference, 
cdu$report_semantic_error, 
Lib$Sget_vm; 


external 
cdu$gl_root_node: ref node, 
cdu$gl_tablé: pointer; 
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GENCODES 

vou-000 

H 3 gziu PATH STACK 

: 79 0814 1— 

; 9 0815 1 ! The following items define the module-wide path stack, which is used to 
; 3 pais : ! resolve an entity path into its complete entity hierarchy. 

: 8 0818 1 own 

; 84 0819 1 path_stack_top: signed long, 

: 52 8 path_stack: vectorLexp_k_max_path_entities,long]; 

; 44 be ¢ ! ! These two macros are used to push and pop the path stack. 

: 89 O8 4 1 macro 

>; 90 M0825 1 push_path_stack(item) = 

ae M0826 1 (increment (path _stack_top); X 

: 9 M0827 1 f .path_stack_fop gequ exp_k_max_path_entities then 

; 2 M0828 1 Signal Casg(cdus intpathstkov)); 

: 3 M 3 path.stack -path_stack_top] = item; 

; 9% 0831 1 — 

3 or M0832 1 pop_path_stack = 

: 8* th : Tdecrement(path_stack_top)) %; 

: 100 0835 1 , 

: 3 88 NODE MANIPULATION MACROS 

> 103 0838 1 

: 104 0839 1 ! The following macro is used to determine whether an ——— node 

3 192 +78 : ! represents an entity (i.e., a parameter, qualifier, or type keyword). 

5 107 0842 1 macro 

3; 108 m 0843 1 top_level_entity_node(a_node) = 
[3 109 Mm 0844 1 -a_nodeLnode_w_type] eqlu node_k_parameter or 

3 110 0845 1 -a_node(node_w_type] eqlu node_k_qualifier or 

’ ‘13 bate : -a_node(node_w_type] eqlu node_k_keyword) %; 

: 113 0848 1 ! The following macro is used to determine whether an arbitrary node is an 
: 114 0849 1 ! entity node that matches a given name. If there is a label node under 

3 118 0850 1! it, then we try to match the label name. Otherwise we try to match the 
; 116 th : ! entity name. 

: 118 83 1 macro 

3 3 te: : Conening, ot itp tg_eade mene, Length name seerees? = 

; in 

; 131 ° 0856 : entity = a_node: node; 

: 138 A" 0858 if top_level entity_node(entity) then ¢ 

3 oca 

3 135 ~ o260 : entitys_label: ref node; 

3 127 M Ose 1 ! The node represents an entity. Compare the ; 
s 128 m 08635 1 ! desired name to the label node, or entity node if 
: 193 : 086s ’ ' there is no Label. 

: 131 I 8 1 if Contitys. Label = CoB) opkye chil stent ity neds k_label)) neqa 0 then 
3 13 M 0867 1 ch$eql(.entitys_label[node_b_text_ ength] ,entitys_label(node_t_text), 
: 13 m 0868 1 name_length,name_addréss,%x'00") 
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14-Sep-1984 11: D 
s } ™ +4 1 else 
; 135 M 0 1 ch$eql(.entity(node_b_text length] entityl(node_t_text], 
8 M0871 1 name_length,name_address,%x'00") 
3; «137 ™ fh 1 ) else 
: 138 M0875 1 
3 139 Mm 0874 1 ! The node does not represent an entity. 
: 140 M0875 1 
3; «(141 0876 1 false 
3 136 0877 #1 ) %; 
31 pare 1 
: 1446 0879 1! This macro is used to determine whether an arbitrary node represents an 
3 145 0880 1 ! entity, and, if so, whether that entity references a type definition in 
: 146 0881 1 ! its value clause. The address of the node representing the type 
3 147 pees 1 ! definition is returned. 
3; (148 08835 1 
: 4149 0884 1 macro 
; 150 m 0885 1 type_reference(a_node) = 
3 19) m 0886 1 (bind : 
3 12¢ M 0887 1 entity = a_node: node; 
3s 15 m 0888 1 local 
3 «6154 Mm 0889 1 type: ref node; 
3 399 ™ 0890 1 
: 1586 m 0891 1 if top_level_entity_node(entity) then 
: 157 M 83 1 if (Type = GduS lookup chi Ldlent ity node _k_value)) neqa 0 then 
s 138 m 08935 1 f (type = tess ookup child(.type,node_k_type_user)) neqa 0 then 
3 «159 M0894 1 cdu$lookup_child(.cdu$gl_root_fode,node_k_define_t pe. 
: 160 m 0895 1 . type(node_b_text_length],type(node_t_text 
3 «6161 Mm 0896 1 else 0 
: 162 m 0897 1 else 0 
: 163 m 0898 1 else 0 
: 164 0899 1 ) &; 
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—1 900 1* 

8 901 1! Description: This routine is called to generate an expression block 

> 168 33 1! that represents an entity path. An entity path specifies a 
> 169 903 1! hierarcy of entities, and is used in a boolean expression to 
; 170 Bape 1! reference a specific entity (as in the DISALLOW clause). 

3; Wi) 905 1! Because the one Sty path can be elided, this routine must 

3 \7¢ 88 14 resolve the path into a full entity hierarchy, ig en at 
; 7 4 1! a@ parameter or qualifier and ending at the final keyword in 
3 «(174 908 1! the path. 

ĩ 175 0909 1! 

3; 176 0910 1! Parameters: definition By reference, the node representing the verb 
3 (iT 81 14 or syntax change definition that includes 

; #178 aig 7! the path. 

3; ivy 0915 1! path By reference, the node — the 

; 180 0914 1! path that we are to compile. We will fill 

: 13) 31 in the TRO of the resulting block. 

; 188 0917 1 ! Returns: Nothing. 

: «(186 0918 1! 

> «185 0919 1 ! Notes 

: 186 0920 1 !-- 

: «187 0921 1 

; 188 09 ¢ 1 GLOBAL ROUTINE cdu$generate_path(definition: ref node, 

3; 189 09 1 path: ref node) : novalue 

; 190 0924 = BEGIN 

; (191 0925 

; 196 0926 bind . : 

3; 19 0927 first child = .pathCnode_l_child]: node; 

: 194 0928 § 

3 195 b368 local 

3 196 0930 § context: ref node, 

: 197 0931 first_entity: ref node, 

: 198 0932 2 path_Stack_mark: signed long, 

3; 199 093 § ambiguous: boolean initial(false), 

; 200 0934 expression: pointer; 

; 201 0935 2 local ’ : 

; 202 0936 § saved_stack_top: signed long initial(-1), 

3 €u3 0937 saved stack: vectorLexp_k_max_path_entities,long], 

: 204 0938 2 saved_stack_mark: Lona; 

; 205 0939 

: 206 0940 : ; - 

: 207 0941 ! A path can include the name of a definition in which the entity hierarchy 
; 208 094 ! is to be resolved. Or, if no such name is included, then it is to be 

; $98 Bcd ! resolved in the current definition. See what the user wants to do. 

3 $i 8 if .first_child(node_w_type] eqlu node_k_path_definition then ( 

; $15 0947 ! The user included an explicit definition name as the first element 
; si¢ 88 ! in the path. Find the node representing the definition. 

: $16 0950 context = cduSlookup_chi lds — — root node,node_k_define_verb, | 

: 217 0951 : -first_child(node_b_text_Tength], first_child(node_t_text]); 
; 218 0336 if .context eqla 0 then ‘ 

; 219 095 context = cduS lookup _childt.cduSa} eget node,node_k_define_syntax, 
: $50 0954 -first_child(node_b_text_Tength]. first_child(node_t_text]); 
s 221 0955 4 if .context eqla 0 then ( 

: 222 0956 4 report_path_error(msg(cdu$_pathundef),.path); 
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context = .definition; 


9 

0 

71 ' Remember the address of this first node, because this is the 
3 ! first entity we must match. 
74 

75 


-000 14-Sep- 
3 957 4 return; 
g 385 — 
$ 960 ! Remember the address qf the node following the path definition node, 
i 30) i because this is the first entity we must match. 
9 308 first_entity = .first_child[node_l_sister]; 
1 Be? ) else ( 
5 367 ! No definition name was included, so use the current definition. 
5 
7 
8 
9 


firstentity = first child; 
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: 243 9376 ! Now we sit in a messy loop trying to resolve the entity path specified by 
; 244 97 : the user. It is resolved in the context of the definition we determined 
3 245 33 above. The module-wide path stack will be used to search the definition's 
3 re 44s ! parameters, qualifiers, and type references. 

: 248 0981 path_stack_top = -1; 

3 8 34-04 while match_first_entity(.context,.first_entity) do ( 

; 251 0984 ! We have found a match on the first entity name and set up the 

; 26 0985 ! path stack accordingly. Mark the stack so we can restore it to 

3 ee 83 ! this state later on. 

3 2? 844: path_stack_mark = .path_stack_top; 

3 gor 0990 ! See if we can match the remaining entities in the path, beginning 
3 $33 444 ; ! at the match we found. 

; soe 34s, 2 if match _remaining_entities(.first_entity(node_l_sister]) then ( 

: $06 0995 4 : Yup, we pot a complete match and the path stack contains 
; 26 0996 4 ! the resolved entity hierarchy. Decide if the match is 

: 264 0997 4 ! interesting. 

; 265 0998 4 

; 266 0999 5 if .saved_stack_top eql -1 then ( 

3 eer 1000 5 : 

; 268 1001 5 ! This is the first match, so it’s useful. Save 

: 269 1002 5 ! the state of the path stack so we can use it 

; 270 1003 5 ! later. 

; 271 1004 5 

3; 272 1005 5 saved_stack_top = .path_stack_top; 

3 as 1006 5 ch$move(ZalTocation(path_stack) ,path_stack, saved_stack); 
3 sie 33 saved_stack_mark = .path_stack_mark; 

; 276 1009 5§ ) else if .saved_stack_mark eqlu 0 then ( 

3; 277 1010 § 

: 278 1011 5 ! We already have a match, and it's one where the 

; 279 1012 5 ! first entity in the path matched a parameter or 

; 280 1013 5 !' qualifier. Such a match takes precedence over 

; 281 1014 5 ! one where the first entity matched a type keyword. 
5 BY 131? : ! What kind of match have we got now? 

: 284 1017 5 if .path_stack_mark eqlu 0 then 

: 285 1018 5 . 

: 286 1019 5 ! Oops, the new match is also ona 

3 3 se 2 ! parameter or qualifier. That's ambiguous. 
; 289 1022 5 ambiguous = true; 

3; ew 1023 5 : 

; 291 1024 5 ! It appears that the new match is on a type 

5 $3 196? : ! keyword. Ignore it in favor of the saved one. 

: 294 1959: 5 ) else ( 

: 295 1028 5 , 

: 296 83 5 ! The saved match is on a type keyword. What does 
: 238 ioe : ! the new one look Like? 

: 299 1032 6 if .path_stack_mark eqlu 0 then ( 
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00 
01 : The new one is on a parameter or 
8 qualbifier, so it takes precedence. Save 
8 ! it as an unambiguous match. 
05 saved_stack top = .path stack 


top; 
ch$move(ZalTocation(path_stack),path_stack, saved_stack); 
saved_stack_mark = .path_stack_mark; 
le ambiguous = false; 
else 


! The new one also matches on a type 
! keyword, so it's ambiguous. 


, ambiguous = true; é 
); 


! Restore the path stack to its state when the first entity 

! was matched, thus flushing the * hierarchy. Then we can 
! Loop for the next match (we need to look at all matches to 

! detect ambiguity). 


WNW NNW Ww 

FNS and nde hbk 

FW SO ODONOUES WN" OOO~ 
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OOOOOOOOIO0O000000000000000 
GOOGGOCOCOCOEXFFFRFEFRFFFEOCĩõOCOCOCOCOCS 
OONAY OONOUEW 
PRINNAWAWNNANA SB STI A AAA 


path_stack_top = .path_stack_mark; 
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: If no match was found, tell the user and forget it. 
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if .saved_stack_top eql -1 then ( 
report _path_error (msg(cdu$_pathunres),.path); 
return; 
! If more than one possible match was found, tell the user and forget it. 
if ambiguous then ( 
report path_error(msg(cdu$_pathambig), .path); 
return; 


; OK, we have an unambiguous match on the path. Create an expression block 
! to contain the entity hierarchy. 


allocate_largest_table_block(ent_k_length + (.saved_stack_top+1)*4, expression); 
! Initialize the header of the expression block. 
siren lotta typed =_block_k_ expression; 


2 

3 

expressionLexp_b_su type] = exp_k_path; 
expressionlexp_w_flags] = 0; 
expressionlexp_w_tro_count] = .saved_stack_top+1; 
2 
2 
3 
3 
3 
3 
3 
3 
: 
: 


: Sit in a loop looking at each level in the path hierarchy. Remember to 
! resolve the final TRO of the associated entity block. 


entity_list = expressionLexp_l_operand_list]: vectorL,long]; 
incru i from 0 to .saved_stack top do | " : 
cduSremember_referencetentity_listl.i],.saved_stackl.i]); 
: Fill in the final length of the expression block and add it's 
! size to the table being created. 


expressionCexp wisize] = exp_k_length + (.saved_stack_top+1)*4; 
set_table_block_Size(.expressionlexp_w_size),expression); 


: Store the TRO of this new expression block in its representing node. 


path(node_l_code] = .expression - .cdu$gl_table; 
return; 


1 END; 


L1:1009 : See 
symbol SAVED_STACK_MARK is probably not initialized 
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00000 PATH_STACK_TOP: 


| 

BLK 4 

00004 PATH_STACK: 

-BLKB = 32 

-EXTRN CDUSLOOKUP_CHILD 

| “EXTRN CDUSREMEMBER, REF ERENCE 

-EXTRN CDUSREPORT_SEMANT!IC_ ERROR 
EXTRN LIB VM, CDUSGL_ROOT_NODE 
-EXTRN CDUSGL_TABLE, CDUS~PATHONDEF 


-EXTRN CDUS_PATHUNRES, CDO$_PATHAMBIG 
-PSECT S$CODES,NOWRT,2 


OFFC 00000 -ENTRY COUSGENERATE, PATH, Save R2,R3,R4,R5,R6,R7,=- 3 0922 
SE 28 C2 00002 suBL2 #40, SP : 
57 08 AC DO 00005 MOVL PATH, R7 + 0927 
52 08 A7 00 00009 MOVL  8(R7S, R2 : 
5A 94 0000D CLRB § AMBIGUOUS : 
56 01 CE OOOOF MNEGL #1, SAVED_STACK_TOP : 
30 62 B1 00012 CMPW 2), #48 > 0945 
47 12 00015 BNEQ : 
11 A2 9F 00017 PUSHAB 17(R2) 7 > 0951 
7E 10 A2 9A OOO1A MOVZBL 16(R2), =(SP) : 
04 DD OOO1E PUSHL #4 : 
000000006 09 odd 00020 PUSHL CDUS$GL_ROOT_NODE ; 
000000006 00 04 FB 00026 CALLS #4, CDOSLOORUP_CHILD : 
6E 50 DO 0002D MOVL RO, CONTEXT : 
26 12 00030 BNEQ ~=«'1$ : 0952 
11 A2 9F 00032 PUSHAB 17(R2) : 0954 
7E 10 A2 9A 00035 MOVZBL 16(R2), =(SP) ; 
05 DD 00039 PUSHL #5 : 
000000006 00 dD 00038: PUSHL CDUSGL_ROOT_NODE F 
000000006 00 04 FB 00041 CALLS #4, CDOSLOORUP_CHILD 3 
6E 50 DO 00048 MOVL RO, CONTEXT ; 
0B 12 00048 BNEQ 1$ : 0955 
57 DD 00040 PUSHL 7 : 0956 
000000006 8F DD 0004F PUSHL #CDUS_PATHUNDEF : 
0092 31 00055 BRW 1$ : 
59 04 A2 00 00058 1$: MOVL 4(R2), FIRST_ENTITY > 0963 
07 11 0005c¢ BRB 3$ : 0945 
6E 04 AC DO 0005E 28 MOVL DEFINITION CONTEXT : 0969 
59 52 DO 0006 MOVL 2, FIRST_ENTITY : 0974 
0000' CF 01 CE 00065 3$ MNEGL #1, PATH _STACK_TOP : 0981 
59 DD 0006A 4$ PUSHL FIRST ENTITY : 0982 
04 AE DD 0006C PUSHL CONTERT : 
0000v CF 08 FB OOO6F CALLS #2, MATCH_FIRST_ENTITY ; 
55 50 £9 90074 BLBC 9 : 
58 0000" CF 00 00077 MOVL § PATH_STACK_TOP, PATH_STACK_MARK > 0988 
04 A DD 0007C PUSHL 4(FIRST_ENTITYS : 0993 
0000v cr 01 FB 0007F CALLS #1, MATCH_REMAINING_ENTITIES 3 
E 50 £9 00084 BLBC ~—_—dWaRO,, : 
FFFFFFFF © 8F 56 D1 00087 CMPL AVED_STACK_TOP, #-1 : 0999 
11 12 84 BNEQ $ 
56 0000" CF 00 0009 MOVL § PATH_STACK_TOP, SAVED_STACK_TOP > 1005 
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1 
1 
20 28 00095 MOVC3 #32, PATH STACK, SAVED_STACK : 100 
8 9 8— ne PATH. STACR_ MARK, SAVED— STACK _MARK 3 38 
D3 864 58: rst SAVED_STACK_MARK : 1009 
98 08 BOOKS TSTL | PATH_STACK_MARK : 1017 
1¢ 12 000A7 BNEG $ ; 
17 11 000A9 BRB $ + 1022 
58 D5 OO0AB 6$: TSTL | PATH_STACK_MARK : 1032 
56 0000' i? 6 BOoAr ROVE — -STACK_TOP, SAVED_STACK_TOP : 1038 
08 AE 0000" CF ¢0 28 00084 MOVC3 #32, PATH STACK, SAVED_STAC + 1039 
58 8 DO 000BB MOVL PATH STACR_ MARK, SAVED_ STACK _MARK : 1040 
SA 94 OOOBE CLRB AMBIGUOUS + 1041 
03 11 000C0 BRB 8s + 1032 
SA 01 90 000C2 7$: MOVB AMBIGUOUS t 1047 
0000" CF 58 DO 000C5S 8$: MOVL Patni STACK_MARK, PATH_STACK_TOP + 1056 
9€ 11 OOOCA BRB : 0982 
FFFFFFFF 8F 56 D1 OOOCC 9$: CMPL SAVED. STACK_TOP, #=1 : 1060 
OA 12 00003 BNEG 10$ : 
57 9D 00005 PUSHL  R7 > 1061 
000000006 8F LD 00007 PUSHL WCDUS_PATHUNRES : 
0B 13 000DD BRB : 
OE 5A €9 OOODF 10$:  BLBC AMBIGUOUS, 12$ > 1067 
57 DD 000E2 PUSHL 7 + 1068 
000000006 8F DD 000E4 PUSHL acous PATHAMBIG : 
O000v CF 02 FB OOOEA 11$: CALLS 2, REPORT_PATH_ERROR : 
04 OOOEF RET + 1067 
04 AE 9F OOOFO 12$:  PUSHAB EXPRESSION : 1075 
04 AE 56 02 78 000F3 ASHL #2, SAVED STACK_TOP, 4(SP) : 
04 AE 22 CO 000F8 ADDL2 #34, 4(SPY : 
06 AE OF OOOFC PUSHAB 4(SP) ; 
000000006 00 02 FB OOOFF CALLS #2, L 1BSGET _VvM F 
09 50 £8 00106 BLBS STATU 57 i : 
50 DD 00109 PUSHL STA Tus ; 
000000006 00 01 FB 0010B CALLS #1, UIBSSIGNAL F 
52 04 AE DO 00112 13$: MOVL EXPRESSION, R2 : 1079 
02. = A2 0105 8F 3C 00116 MOV2WL #261, 2(R2 : 
06 A2 56 01 Ai 0011C ADDW3 #1, SAVED_STACK_TOP, 6(R2) : 1082 
53 D4 00121 CLRL ssi > 1097 
17 11 00123 — BRB 15$ 3 
08 AE43 DD 00125 14%: | PUSHL SAVED STACKLI) + 1092 
08 A243 DF 00129 PUSHAL 8(R2) : 
000000006 00 08 FB 00140 CALLS #2, CDUSREMEMBER_REFERENCE : 
53 06 OC. 34 INCL : 
56 53 1 03136 158: CMPL 1, SAVED_STACK_TOP : 
EA 1B 00139 BLEQU 14 ; 
50 56 02 78 00138 ASHL. #2, SAVED_STACK_TOP, RO : 1098 
62 50 OC Al 0013F ADDW3 #12, RO, TR2) ; 
50 8 3c 00143 MOVZWL (R25, RO > 1099 
50 03 CO 00146 ADDL2 #3, RO ; 
50 04 ¢€6 00149 DIVL2 #4. RO ; 
62 50 04 AS 0014C MULW3 #4, RO, (R2) ; 
50 000000006 00 p0 90150 OVL CoUSGL TABLE, RO : 
51 62 3¢ 00157 MOVZWL  (R2), Ri ; 
10 Ao 51 C6 00194 ADDL2 R11, 16(RO) ; 
oc a7 52 50 C3 0015E SUBL3 RO, R2, 12(R7) > 1103 


; Routine Size: 356 bytes, 


Routine Base: 


14 
15-Sep-1984 23:40:09 
1-88-1984 11:58:59 
04 00163 
SCODES + 0000 


RET 
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; 1106 


| 16 
| GENCODES 1$<Sep-1984 23:40:09 _-VANe11 BL 1se-32 ¥6.0-76 Pa 
| —W u eß — 


31 1107 14*44 

J 1 1108 1bescription: This routine is called to find a match on the first entity in 
J Bre 1109 1! @ path specified by the user. We perform a depth-first 

3; af? 1110 1! search of all the entities under a given verb or syntax 

; 380 phe & definition, looking for an entity which matches that 

; 381 Wiig tt spec tT ioe by the user. As we 90. we maintain a path stack 
: 33 1437 : that shows how we got down to the entity. 

: 384 1115 1 ! Parameters: path_definition By reference, the node represent ing the verb 
; 385 1338 1! or syntax definition which is to be 

3 386 bias searched. , 

; 387 1118 1! path_entity BY reference, the node representing the 

: $66 1333 : } first entity in the path. 

: 309 115) ! Returns: By value, a boolean which is true if we found a match. 

: 39 1158 13 Notes 

ae 1124 1 !<= 

: 394 1125 1 ; 

3 395 1126 1 GLOBAL ROUTINE match_first_entity(oath_definition: ref node, 

: $09 3 ——⸗ path_entity: ref node) 

: 398 1129 2 

; 399 1130 2 local 

$ rts ate $ type: ref node; 

: 402 1133 3 Sant 

: 403 1134 2! The path stack is either empty, or it contains the entity hierarchy 

: the 1182 § : Leading to the previous match. Sit in a loop to find the next match. 

; 406 1137 3 Loop ( 

: 407 1138 3 : , 

: 408 1139 3 : If the stack is empty, begin searching the children of the | 

; 409 1140 3 : definition. Otherwise, move on to the sister of the top entity 
: ret 403 ; ! on the stack. 

: 412 1143 3 if .path_stack_top eql -1 then ss 

3 oi? 34 cay push_path_stack(.path_definition[node_l_child]) 

3 else 

3: 415 1146 4 bind 

3 Hy! ites ? entity = .path_stackC.path_stack_topJ: node; 

; 418 1149 4 ; path_stackl.path_stack_top] = .entity(node_l_sister]: 

: 420 13) 3 , 

; 83 136 : if .path_stackC.path_stack_top] neqa 0 then 

3 423 1154 3 ! If there is another node at this level, then we want to 
: 424 1155 3 : search all of the type definitions below it. Push the 
: 425 1156 3 ! first keyword node of each lower-level type definition 
; ? 6 3 3 ! on the stack. 

; 428 1159 ; while (type = type reference’ path stackt path stack_top))) neqa 0 do 
: : , 1169 ? push_path_stack(.typeLnode_l_child]) 

: 431 116¢ 3 else 

3: 432 116 


1 
| 


<a 
FS 
a 
oo 
Oo 
m 
= 


Be Se Ge ee Se Se Ge ee Ge Se Se Se Se Se See Se Se eases 
= 
- 


eee ee ee ee ee ee ee ee ee ee ee ee ee ee 
el dd dd 
COC WO NIN NINN NNN NSA OOOO 
FWN $C DONS —— 


pop_path_stack; 


! looking for, then we got a matc 


return true; 


— ⸗ 
ee 


return false; 


— 


03FC 00000 

59 00000000G 00 9€ 00002 
58 449 44 4444 8F D0 00009 
57 00000000G 00 X 00010 
56 0000" CF 9E 00017 
50 66 DO O00IC 
FFFFFFFF 868F 50 01 OO01F 
1E 12 00026 

66 06 00028 

08 66 D1 Q002A 
05 1F 00020 

58 0D 86 

62 01 FB 00031 
50 66 00 00034 
51 04 A640 DE Wit 
50 04 AC 00 00035C 
61 08 a0 oY 88 
of 1 44 

51 04 A64 pF 888 
50 61 DO 00048 
61 04 Ad 00 838 
69 15 0005 

50 $6 DO 00054 
52 04 A640 DE 81 
od 00 Be a 05C¢ 
— 3 00060 

10 00 8 4 006 
18 00«BS. BF 0006 
5 2 006C 


F 14 
15-Sep-1984 23: 
14-Sep-1984 11: 


! There isn't another node at this level, so pop the stack. 


if .path_stack_top eql -1 then exitloop; 


1$: 


23: 


3$: 


4$: 


5$: 


! If the stack is empty, we're done searching. 


if matching_entity(.path_stackC path stack _topJ, : 
-path_entityLnode_b_text_length],path_entity[node_t_text]) then 
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! If the entity at the top of the stack matches the one we are 


We searched the entire definition without finding a match. 


.EXTRN CDUS_INTPATHSTKOV 


-ENTRY 


SS aes Save R2,R3,R4,R5,R6,R7,- 


LIBSSIGNAL, R9 
#CDUS_INTPATHSTKOV, R8 
CDUSLOOKUP_CHILD, R7 
PATH_STACK_TOP, R6 
PATH STACK TOP. RO 


PATH_STACK_TOP 
PATH STACK_TOP. #8 


B(ROS, ¢ 
4$ 
H_STACKCROJ, R1 
7 RO 
05, (R1) 
H_STACK_TOP, RO 
H STACKEROJ, R2 
99(R2), a 
a0(R2), #16 


@0(R2), #24 
9$ 


PAT 
(R1 
4(R 
12$ 
PAT 
PAT 


1126 


1143 


1144 


15 
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cEyCOnES Monin a 7440:09 YMCII OL str82 Wh 02742 sey gsaPH@e If 


114 16$: BEQL 17$ 3 
88 i} og R 1$ : 

50 1 * 119 17$: MOVL #1, RO : 1177 
4 0011C RET : 

50 04 0011D 18$: CLRL RO 3; 1182 

04 0011F 3 1184, 
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' Description: This routine is called to match all but the first entity in 


a multilevel entity path, after the first entity has been 
matched. To constitute a match, the remaining entities 
must match successively deeper levels of nested type 
definitions. As we 90. we maintain a path stack that shows 
how we got down to the final entity. 


Parameters: path_entity By reference, the node representing the 


— — — — — — — — — — — — 


second entity in the path. Its sisters 
are the rest of the entities. 


Returns: By value, a boolean which is true if a match is detected. 


yo ae match_remaining_entities(path_entity: ref node) 


type: ref node, 
keyword: ref node; 


! Sit in a loop looking at each of the remaining entities in the path. 


while .path_entity nega 0 do ( 


vv0v 
à———— ab 
ù—— 9 Ot SS —2 2— ⏑⏑ O007S ——⏑— U— 


————————— ⏑ ⏑⏑ — — — OO OS SO OS 
=—OODWNAUE WN 9 DOONAN EWN ODNOAU EWN “OOONOu 


RIANA AIWINI WII AAAI ANI ANIA AI AIAIAAIAIAIAN ANNI RIPON NIDINIDID OOO OO Ot — — — — — es —— 


SAWN Wnonornu 


BSSRLESRANS 


! The entity on the a of the path stack must reference a type. 
: definition in its value clause, or we can't possible match this 
! next entity. Find that referencing node. 


type = type_reference(.path_stack(.path_stack_top]); 
if .type eqla 0 then 
return false; 


! We have a type definition referenced by the top entity on the 
pyeck, It must include a keyword that matches this next entity. 
! Find it. 


scan_chiidron( type keyword, ‘ 

if matching_entity(.keyword,.path_entity[node_b_text_length], 

path_entity(node_t_text]) then exTtloop; 

if .keyword eqla 0 then 
return false; 


! The keyword represents the next level in the entity hierarchy for 
! this path, so push it on the path stack. 


push_path_stack(. keyword); 
' Go on to the next entity in the specified path. 
path_entity = .path_entity[node_l_sister); 


——_____ — —ñ -—_—_—- 


— ii 


; ! If we dropped out of that loop, then we got a match. 
5 return true; 
END; 
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03FC 00000 -ENTRY 


0000" CF 
000000006 8 


04 A940 
046 4 
0 

008C 


2 
3 
S 
⸗ 


1$: MOVL 


0D 00 
10 00 
18 00 


2$: CMPW 


3$: PUSHL 
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11 
7E 10 
000000006 


SOOCOCOOCOSOOCOOSOSOOOSOSOOOoOSoOoOoOoOooOOoOoOooOoOSoooo 


NONNVOONW SS 


55 08 


oo -0 -08 -@ 9 9 9 9 = 99 00-9 799-9 709090 - OO -@ - Ow SoC Oo 
TON WW MW BF OF (DOO F MUNDO OW ON SW S VOMom 
OQOCKCoCOooooooooooooooooooooooocoooooo 
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DISKS 


MATCH REMAINING ENTITIES, Save R2.R3,R4,R5,~; 
6,R77R8,R9 


: 


Bliss 
msrAST 


CDUSCOOKUP-CHILD, R 
PATH_STACK_TOP, RO 


PATH STACKEROJ, R6 


PATH-ENTITY, Ré 
2$ 


15$ 
@0(R6), #13 
@O(R6), #16 
@0(R6), #24 
6$ 
#28 


(R6) 
#2, CDUSLOOKUP_CHILD 
TYPE 


4$ 
#33 


TYPE 
#2, CDUSLOOKUP_CHILD 
TYPE 


— 
bad 


17 


(TYPE) 
16(TYPE), =(SP) 


a 
CDUSGL_ROOT NODE 


se CDOSLOORUP_CHILD 


RO 

RO, TYPE 
7$ 

TYPE 


— 
oa 


13$ 


$ 
S(TYPE), KEYWORD 


(KEYWORD), #13 


9$ 


(KEYWORD), #16 
(KEYWORD), #24 
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16 
NCODES 15-5¢ 4 VAX-11 Bliss-32 V4.0 
ees O85 12a eeea18Re F438: 8s GAAS TeRcclba sacScencoves.e324>" « 
68 ! F 7F CALLS CDuSLOOKUP_ CHILD ; 
75 98 Oboes Beat Eat tYs. — : 
52 19 AO 9A 000 MOVZBL 16(ENTITYS_LABEL), R2 : 
10 Ad 3A 0 A MOVZBL 1g(R4) RI” : 
51 00 11 AO — D 00 E cMPCS = R2, TPtENTITYS _LABEL), #0, R1, 17(R4) : 
10 11 0009 BRB 11$ : 
51 10 AS 9A $098 10$:  MOVZBL 16(KEYWORD), R1 : 
50 10 Ad 9A 9009¢ MOVZBL 16(R4), RO : 
50 00 11 OAS i 31 2D 846 CMPC5 R1, 17(KEYWORD), #0, RO, 17(R4) : 
06 13 884 11$: BEQL 13$ : 
55 04 AS DO 86 12$:  MOVL 4 (KEYWORD), KEYWORD : 
Be AS OO0ay 138: erL «KEYWORD : 1230. 
28 1300082 ##  ##$BEQL  16$ : 
08 83 Be boone {MPL PATHTSTACKTTOP, #8 some 
OD 1F 00089 BLSSU 148 ~ : | 
000000006 8F dD 000BB PUSHL #CDUS_INTPATHSTKOV : 
000000006 00 01 FB 000C1 CALLS #1, LIBSSIGNAL F 
50 69 DO 000C8 14$:  MOVL PATH STACK_TOP, RO : | 
be OF AD OF p0008 MOVE: PATH STACKTROD, = ak 
04 AC 04 A& DO 00003 MOVL  4(R4), PATH_ENTITY > 1240. 
FF3B 31 000D8 BRW 1 + 1212 
50 01 DO 000DB 15$:  MOVL #1, RO : 1245) 
04 OOODE RET : | 
50 04 OOODF 16$:  CLRL RO + 1247 | 
04 000E1 RET : 


3; Routine Size: 226 bytes, Routine Base: S$CODES + 0284 
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: 519 12468 1 !+¢ 

3 0 1 8 1 ! Description: This routine is called to report an error —_——s a path. 
: 1 1250 1! The routine is needed because the path string must be 

5 2 ¢ ! 23 : reconstructed from the intermediate representation. 

3 2 4 1 2g 1 ! Parameters: message By value, a message status code used for the 
3 5 1296 1! message. It is assumed to take a two $FAO 
; 2 6 1255 1! erguaents, a !UL for the Line number and a 
; 7 1256 1! ‘AS for the path oer ine. 

>; 528 ior 2 path By reference, the top-level node 

3 356 1359 : representing the path in error. 

; 531 1260 1 ! Returns: Nothing. 

; 236 1261 1! 

3 32 1506 1 ! Notes: 

; 32 1265 1 !-- 

3 $30 1264 1 

; 536 1265 1 GLOBAL ROUTINE report_path_error(message: long, 

3 S37 1266 1 path: ref node) : novalue 

3; 320 1267 $ = BEGIN 

; 539 1268 

; 540 1269 2 local 

; 541 1270 2 path_string: vector[tkn_k_max_length,byte], 

: 542 1271 2 path_string_dsc: descriptor, 

: 543 1676 2 index: long initial(0), 

: 544 127 § child: ref node; 

> 545 1274 

: 546 1275 2 . 

: 547 1276 2 ! Build the path string from the intermediate representation. 

: 548 1277 2! If the first child of the path node is a path definition node, 

: 549 1278 2 ! then the user specified an explicit definition. Place it at the 

; 550 1279 2 ! front of the string in angle brackets. 

3 Dor 1280 2 ⸗ 

226 1281 2 child = .pathCnode_l_child); “ite 

3; 3 1282 3 if .child[node_w type, eqlu node_k_path_definition then ( 

: 554 1283 3 path_string 0] = ‘<'; ’ ; 

3 $35 1284 3 ch$move(.c ild£node_6 text_length],child([node_t_text], path_string[1]); 
: 556 1285 3 index = 1 + .child{node_b_fext_length); 

s Sor 1286 3 path_stringl.index] = '5'; 

; 558 1287 3 increment (index); 

; 559 1288 3 child = .child(node_l_sister]; 

; 560 1289 2); 

; 561 1290 2 : 3 

: 206 1291 2 ! Now sit in a loop and concatenate all of the entity names onto the path 
; 56 1638 ! string, with periods in between. 

: 564 129 

: 365 1294 while .child nege 0 do ( : ; 
; 566 1295 ch$move(.child(node_b_text_length],child{node_t_text], path_stringl.index]); 
3 567 1296 index = .index + Ghitglnode btext _lengthd; 

; 568 1297 path stringl. index — *.'3 

: 569 1298 increment (index); ‘ 

; 570 1299 child = .child(node_l_sister]; 

s of 1300 ); 

s Sfe 1301 : : 

: 207 1306 ! Build a descriptor of the node string a report the error. 

s $75 1304 build_descriptor(path_string_dsc,.index-1,path_string); 


— 
RS 


3; Routine Size: 


. 
ww 
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113 


14-Sep-19 DISKSVMSMASTE 
cduSreport_semantic_error(.message,2,.path(node_w_line],path_string_dsc); 
return; 
END: 
01FC 00000 .ENTRY REPORT_PATH_ERROR, Save R2,R3,R4,R5,R6,R7,- 
SE FEF8 ce 9E 0000 MOVAB -264(SP), SP 
57 D4 0000 CLRL —sIN DEX 
58 08 AC DO 00009 MOVL PATH, RB 
56 08 AS DO 0000D MOVL BeRBS CHILD 
30 66 81 00011 CMPW ante #48 
1F if 00014 BNEQ 2§ 
08 AE 3¢ 90 00016 MOVB #60, PATH_STRING 
50 10 A6 9A OOOIA MOVZBL 16(CHIL 
09 AE 11 Ab 50 28 OOO1E MOVC3 RO, t7{CHELD). PATH_STRING*1 
57 10 Ab 9A 00024 MOVZBL 16(CHILD), INDEX 
57 6 00028 INCL INDEX 
08 AE47 3— 90 O002A MOVB #62, PATH_STRINGCINDEX] 
57 06 O00¢F 1$: INCL INDEX 
56 04 Ab DO 00031 MOVL 4(CHILD), CHILD 
56 D5 00035 2$: TSTL CHILD 
19 13 00037 BEQL 3$ 
50 10 Ab 9A 00039 MOVZBL 16(CHILD), R RO 
08 AE47 11 Ab 50 28 0003D OVC3 RO, 17(CHILD), PATH_STRINGCINDEX) 
50 10 AM 9A 00044 MOVZBL 16(CHILD), RO” 
57 50 CO 00048 ADDL2 RO, INDEX 
08 AE47 2— 90 00048 OVB #46, PATH_STRINGLINDEX] 
DD 11 00050 BRB 1$ 
6E 57 01 A3 00052 3$: SUBW3 #1, INDEX, PATH STRING_DSC 
02 AE B4 00056 CLRW PATH_STRING_D 
04 AE 08 AE 9E 00059 MOVAB PATH “STRING, Bata. STRING_DSC+4 
5E DD 0005E PUSHL 
7E 02 AS 3C 00060 MOVZWL 3R8), -(SP) 
02 DD 00064 PUSH 
04 AC DD 00066 PUSHL MESSA GE 
000000006 00 04 FB 00069 CALLS #4, CDUSREPORT_SEMANTIC_ERROR 
04 00070 ET 
bytes, Routine Base: S$CODE$ + 0366 
1 
END 
0 ELUDOM »* 
.EXTRN LIBSSIGNAL 
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Name Bytes Attributes 
OWNS 3 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, ——33 
SCODES 9 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


wooeeee= Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
.$255$DUA28: CSYSLIBILIB.L32;1 18619 4 0 1000 00:01.9 


Information: 1 
Warnings: 
Errors: 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:GENCODE4/0BJ=O0BJ$:GENCODE4 MSRC$:GENCODE4/UPDATE=(ENHS : GENCODE4) 


Size: 983 code + 36 data bytes 
Run Time: 00:23.9 

Elapsed Time: 01:11.4 

Lines/CPU Min: 3289 
Lexemes/CPU-Min: 22463 

pom Used: 187 pages 

Compilation Complete 
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